package ObjectInfo;
use Carp;
use threads::shared;


############################
## the object constructor ##
############################
sub new {
	my %self:shared = (); 
	bless \%self;
	return \%self;
}

#########################
## the set method      ##
#########################
sub set(){
	my $self = shift;
	my $name = shift;
	my $value = shift;
	$self->{$name} = $value;		
}
#########################
## the get method      ##
#########################
sub get(){
	my $self = shift;
	my $name = shift;
	if(exists $self->{$name}){
		return $self->{$name};	
	}else{
		return undef;
	}
	 	
}

sub DESTROY {
	
}
1;